home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / game / patch / WHDIDemos.lzh / Scoopex_SevenSins.lha / Install next >
Text File  |  1980-01-11  |  3KB  |  150 lines
  1. ;****************************
  2.  
  3. ;(set #sub-dir "")            ;sub directory containing data files
  4. (set #readme-file "ReadMe")     ;name of readme file
  5. (set #cleanup "")        ;files to delete after install
  6.  
  7. ;****************************
  8. ;----------------------------
  9. ; checks if given program is installed, if not abort install
  10. ; #program - to check
  11.  
  12. (procedure P_ChkRun
  13.   (if
  14.     (= 0 (run ("cd SYS:\nWhich %s" #program)))
  15.     ("")
  16.     (abort
  17.       (cat
  18.     "You must install \"" #program "\" first!\n"
  19.     "It must be accessible via the path.\n"
  20.     "You can find it in the WHDLoad package."
  21.       )
  22.     )
  23.   )
  24. )
  25.  
  26. (procedure P_ChkRun_XFD
  27.   (if
  28.     (= 0 (run ("cd SYS:\nWhich %s" #program)))
  29.     ("")
  30.     (abort
  31.       (cat
  32.     "You must install \"" #program "\" first!\n"
  33.     "It must be accessible via the path.\n"
  34.     "You can find it in the XFD package."
  35.       )
  36.     )
  37.   )
  38. )
  39.  
  40. ;----------------------------
  41. ; Wait for inserting disk
  42. ; IN:  #AD_disk - name of disk
  43. ; OUT: -
  44.  
  45. (procedure P_disk
  46.     (message ("Ensure the file SCOOPEX.SEVEN-SINS is available in RAM:"))
  47. )
  48.  
  49. ;****************************
  50.  
  51. (if
  52.   (exists #readme-file)
  53.   (if
  54.     (= 0 (run ("SYS:Utilities/Multiview %s" #readme-file)))
  55.     ("")
  56.     (run ("SYS:Utilities/More %s" #readme-file))
  57.   )
  58. )
  59.  
  60. (set #program "WHDLoad")
  61. (P_ChkRun)
  62.  
  63. (set #program "xfddecrunch")
  64. (P_ChkRun_XFD)
  65.  
  66. (set @default-dest
  67.   (askdir
  68.     (prompt ("Where should \"%s\" be installed?\nA drawer \"%s\" will be automatically created." @app-name @app-name))
  69.     (help @askdir-help)
  70.     (default @default-dest)
  71.     (disk)
  72.   )
  73. )
  74. (set #dest (tackon @default-dest @app-name))
  75. (if
  76.   (exists #dest)
  77.   (
  78.     (set #choice
  79.       (askbool
  80.         (prompt ("\nDirectory \"%s\" already exists.\n Should it be deleted?" #dest))
  81.         (default 1)
  82.         (choices "Delete" "Skip")
  83.         (help @askbool-help)
  84.       )
  85.     )
  86.     (if
  87.       (= #choice 1)
  88.       (run ("Delete \"%s\" \"%s.info\" All" #dest #dest))
  89.     )
  90.   )
  91. )
  92. (makedir #dest
  93.   (help @makedir-help)
  94.   (infos)
  95. )
  96.  
  97. ;----------------------------
  98.  
  99. (copyfiles
  100.   (help @copyfiles-help)
  101.   (source ("S7S.Slave"))
  102.   (dest #dest)
  103. )
  104. (copyfiles
  105.   (help @copyfiles-help)
  106.   (source ("proreplay.bin"))
  107.   (dest #dest)
  108. )
  109. (copyfiles
  110.   (help @copyfiles-help)
  111.   (source ("SevenSins.info"))
  112.   (dest #dest)
  113. )
  114. (if
  115.   (exists #readme-file)
  116.   (copyfiles
  117.     (help @copyfiles-help)
  118.     (source #readme-file)
  119.     (dest #dest)
  120.   )
  121. )
  122. (if
  123.   (exists ("Readme.info"))
  124.   (copyfiles
  125.     (help @copyfiles-help)
  126.     (source ("Readme.info"))
  127.     (dest #dest)
  128.   )
  129. )
  130.  
  131. ;----------------------------
  132.  
  133.  
  134. (P_disk)
  135. (if
  136.   (= 0 (run ("xfddecrunch \"RAM:Scoopex.Seven-sins\" \"RAM:S7S\" >CON:///1000//CLOSE" #dest)))
  137.   ("")
  138.   (abort "\"xfddecrunch\" has failed to decompress the demo")
  139. )
  140. (copyfiles
  141.   (help @copyfiles-help)
  142.   (source ("RAM:S7S"))
  143.   (dest #dest)
  144. )
  145. ;----------------------------
  146.  
  147. (run ("Delete RAM:S7S ALL QUIET FORCE" #cleanup))
  148. (run ("Delete RAM:scoopex.Seven-sins ALL QUIET FORCE" #cleanup))
  149. (exit)
  150.